home *** CD-ROM | disk | FTP | other *** search
- 10 rem copyright 1987 compute! publications inc. - all rights reserved
- 20 poke53269,0:sp=53248:n=54272:sp$=" ":poke53281,6:poke53280,10
- 30 print"[147][150] copyright 1987 compute! pub., inc. ";
- 40 print" all rights reserved [146][155]";
- 50 dimst$(50),ca$(50),nb$(50),ab(50),pk(50),a$(50),sx(50),sy(50),cp(50),st(50)
- 60 c=c+1:ifc=49then80
- 70 readst$(c):readca$(c):readsx(c):readsy(c):readnb$(c):goto60
- 80 for x=13*64 to 15*64-1:poke x,0:next x
- 81 forx=842to881:reada:pokex,a:nextx
- 90 forx=906to945:reada:pokex,a:nextx
- 100 forx=970to1009:reada:pokex,a:nextx
- 110 poke2040,13:poke2041,14:pokesp+28,3
- 120 poke53285,10:poke53288,2:poke53287,9:pokesp+16,0
- 130 pokesp,120:pokesp+1,170:pokesp+2,240:pokesp+3,170:poke53269,3:xz=-1
- 140 printtab(214)"choose one:"spc(68)"1 - bounty hunter"spc(63)"2 - count down
- 150 [153][163]247)"bounty hunter"[166]6)"crook"
- 160 [161]a$:r[178][187](1):[139]a$[179]"1"[176]a$[177]"2"[167]160
- 170 f[178][197](a$):[139]f[178]1[167]210
- 180 [151]sp[170]3,250:[153]"load"[163]253)"minutes (1-5)"
- 190 [161]a$:[139]a$[179]"1"[176]a$[177]"5"[167]190
- 200 sc[178][197](a$):sc[178]sc[172]60[170]1
- 210 [153]"load"[163]215)"choose one:"[166]69)"1 - states"[166]70)"2 - capitals"
- 220 [161]a$:[139]a$[179]"1"[176]a$[177]"2"[167]220
- 230 [139]a$[178]"1"[167]250
- 240 [129]x[178]1[164]48:st$(x)[178]ca$(x):[130]x
- 250 [153]"load"[166]214)"1 - visible "[166]68)"2 - invisible
- 260 geta$:ifa$<"1"ora$>"2"then260
- 270 e=val(a$):iff=2then1480
- 280 printtab(93)"difficulty (1-3)
- 290 rc[178][181](48[172][187](1))[170]1:rr[178]rc
- 300 [161]a$:[139]a$[179]"1"[176]a$[177]"3"[167]300
- 310 b[178][197](a$):b[178]4[171]b:[151]sp[170]1,250:[151]sp[170]3,250
- 320 [153]"loadopen"[163]205)"the crook is in "st$(rc):[129]x[178]1[164]2000:[130]x
- 330 [137]1480
- 340 [153]"loadopen";:[151]sp[170]3,250
- 350 sx(18)[178]290:sy(18)[178]173:sx(19)[178]275:sy(19)[178]70:sx(20)[178]290:sy(20)[178]140
- 360 sx(21)[178]280:sy(21)[178]106:sx(22)[178]285:sy(22)[178]200
- 370 [139]e[178]2[167]630
- 380 [153]" (NULL)usrusrusrusrusrusr(NULL)(NULL)usrusrusrusrusrusrusrusrusrusrusrusr(NULL)usrusrusrusrusrusr(NULL)usrusrusrusr(NULL)
- 390 print"[207][146][223] [180][205] [180] [170] [146][169]
- 400 [153]"sgn sgn sgn sgn + waitstep
- 410 print"[207][205][175][175][175][206][183][183][180] [205][175][175][175][175][175][175][175][175][175][175][175][207][183][183][183][183][183][183][183][180] [146]
- 420 [153]"sgn sgn sgn sgn sgn (NULL)
- 430 print"[180] [180] [180] [180] [180] [223]
- 440 [153]"(NULL)andandandandandandand(NULL)andandandandsgn (NULL)andandandandandand (NULL)usrusrusrusrusrusr
- 450 print"[180] [170] [180] [180] [180] [205][180] [208]
- 460 [153]"sgn + sgn (NULL)andandandandandandandand(NULL)and (NULL) +
- 470 print"[180] [170] [180] [180] [180] [170] [146]
- 480 [153]"sgn + sgn sgn (NULL)andandandandandsqrusrusrusrusrusrusr
- 490 print"[180] [205] [180] [180] [180] [205] [146]
- 500 [153]"(NULL) (NULL) sgn sgn sgn + wait
- 510 print" [223] [205] [180] [180] [180] [170] [223]
- 520 [153]" (NULL) (NULL)(NULL)usrusrusrusrusrusr(NULL)usrusrusrusrusrusr(NULL)usrusrusrusrusrusrusrusrusr(NULL)andandandandandand
- 530 print" [223] [205] [180] [170][183][183][183][180] [180] [146][169]
- 540 [153]" (NULL) (NULL) sgn + (NULL) sgn "
- 550 [153]" (NULL) sgn + usrusrusrusrusrsgn wait
- 560 print" [223] [180][175][175][175][175][175][175][186] [207][183][183][183][183][183]
- 570 [153]"move?open (NULL) (NULL)wait (NULL) sgn wait
- 580 print" [223] [180] [146][169]
- 590 [153]"def(NULL)usrusrusrusrusrusrusrusrusrusr(NULL)open sysscore:open(NULL) (NULL) wait
- 600 print"[150][180] [170][159] [223][169][223] [146][169] [223][223]
- 610 [153]"defsgn +open (NULL) waitstep (NULL)(NULL)wait";
- 620 [153]"def(NULL)andandandandandandandandandandsqropen (NULL)step";
- 630 [139]f[178]2[167][141]2740:[153]la;
- 640 [139]f[178]2[176]rc[177]22[167]670
- 650 [139]sx(rc)[177]255[167]k[178]255:[151]sp[170]16,3:cx[178]2
- 660 [151]sp[170]2,sx(rc)[171]k:[151]sp[170]3,sy(rc):k[178]0
- 670 [141]1590:[137]1010
- 680 [153]"load";:[151]sp[170]3,250
- 690 sx(18)[178]57:sy(18)[178]174:sx(19)[178]40:sy(19)[178]55:sx(20)[178]60:sy(20)[178]138
- 700 sx(21)[178]44:sy(21)[178]93:sx(22)[178]57:sy(22)[178]205:[139]e[178]2[167]960
- 710 [153]" waitstep (NULL)usr
- 720 print" [206] [205][175] [223][146]move?[159] [169] [146]
- 730 [153]" sgn (NULL)(NULL)wait step (NULL)wait sgn sgn sgn+ (NULL)
- 740 print" [205] [146] [146][169] [180] [180] [180][170] [146][169]
- 750 [153]"usrusrusrusrusrusrusrsgn wait wait step sgn(NULL) (NULL)
- 760 print" [204] [146] [146] [169] [207][183][183] [146]
- 770 [153]"(NULL) (NULL)usrusrusrwait usrusr(NULL)usr(NULL)wait stepusr(NULL)usrusrusrusrusrusrusr(NULL) (NULL)usr(NULL)(NULL)(NULL)waitfn
- 780 print" [180] [180] [180] [180] [206][205][180] [170] [146]
- 790 [153]" andandandandandand(NULL) sgn sgn (NULL)(NULL)andandandandandandand(NULL)
- 800 print" [223] [205] [180] [204] [206] [204][175][175][175] [170] [223]
- 810 [153]" (NULL) (NULL) sgn (NULL) (NULL)and(NULL) (NULL) (NULL)(NULL)sgnusr(NULL)
- 820 print" [180] [204][206] [205][175][175][206][183] [183][183][208][146] [158]score:[159]
- 830 [153]" (NULL)and(NULL) (NULL) to +
- 840 print" [206] [162][184][183][183][183][183][183][183][206][183][183][183][183][183][183][183][183][183][183]
- 850 [153]" (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)usrusr (NULL) wait
- 860 print" [206][183][183][183][183][207][183][183][183][183][207][183][183][207][183][183][205][175][175][175][175] [146]
- 870 [153]" sgn sgn sgn (NULL) (NULL)waitstep
- 880 print" [180] [180] [180] [183][205][175] [146][169]
- 890 [153]" andandandandandsgn sgn sgn (NULL) waitstep
- 900 print" [180] [180] [180] [180] [205][146][169][150][207][183][183][183][183][183][183][183][183][183][183][208][159]";
- 910 print" [180] [206] [180] [175][175][175][204][175][175][175][175][175][175][175][146][169] [150][180] [170][159]";
- 920 print" [169] [183][183][183][208] [180] [180] [223][146] [150][180] [170][159]";
- 930 print" [223][146] [223] [146] [223] [146] [150][204][175][175][175][175][175][175][175][175][175][175][186][159]";
- 940 print" [223][223][146] [223] [223]
- 950 [153]" (NULL) (NULL) (NULL)wait";
- 960 cx[178]0:[151]sp[170]16,0:[139]f[178]2[167][141]2740:[153]la;
- 970 [139]f[178]2[176]rc[179]18[167]1000
- 980 [139]sx(rc)[177]255[167]k[178]255:[151]sp[170]16,2:cx[178]2
- 990 [151]sp[170]2,sx(rc)[171]k:[151]sp[170]3,sy(rc):k[178]0
- 1000 [141]1590
- 1010 [139]mp[178]1[167]yy[178]20:xx[178]0:[141]2450:[153]sp$:[153]"on";
- 1020 [139]mp[178]2[167][153]""[163]60)sp$:[153]""[163]60);
- 1030 y[178]0:r1[178]r
- 1040 [139]an$[179][177]""[167]da[178]1
- 1050 [139]g[178]1[167]g[178]0:[137]1360
- 1060 an$[178]""
- 1070 [139]da[178]1[167][142]
- 1080 [139]f[178]2[167]2610
- 1090 [137]2120
- 1100 [139]y[177]0[167]1200
- 1110 [139]a$[179][177]" "[167]1180
- 1120 [139]xz[177][195](nb$(r))[171]2[167]xz[178][171]1
- 1130 xz[178]xz[170]2:nm$[178][202](nb$(r),xz,2):nm[178][197](nm$):[153]st$(nm):x[178]0
- 1140 x[178]x[170]1
- 1150 [161]a$:[139]a$[178][199](13)[167]an$[178]st$(nm):g[178]1:[141]2810:[137]1170
- 1160 [139]x[179]30[167]1140
- 1170 da[178]1:[137]1010
- 1180 [139]a$[179][177][199](13)[167]1200
- 1190 [153]""st$(hm):[129]x[178]1[164]200:[130]x:[137]1010
- 1200 [139]a$[178]" "[175]a$(y)[178]" "[167][142]
- 1210 [139]a$[179][177]""[167]1270
- 1220 [139]r[179]18[176]r[177]22[167]1270
- 1230 [151]sp[170]1,250:[151]sp[170]3,250:da[178]1
- 1240 [139]mp[178]1[167]mp[178]2:[137]1260
- 1250 mp[178]1
- 1260 [145]mp[137]340,680
- 1270 [139]a$[178][199](13)[167]1330
- 1280 [139]a$[178][199](20)[175]y[178]0[167][142]
- 1290 [139]a$[178][199](20)[167][153]"cmd cmd";:a$(y)[178]"":y[178]y[171]1
- 1300 [139](a$[179]"a"[176]a$[177]"z")[175]a$[179][177]" "[175]a$[179][177]"."[167][142]
- 1310 [139]y[178]14[167][142]
- 1320 [153]a$;:y[178]y[170]1:a$(y)[178]a$:[142]
- 1330 [141]2810
- 1340 [139]a$(y)[178]" "[167]y[178]y[171]1
- 1350 [129]x[178]1[164]y:an$[178]an$[170]a$(x):a$(x)[178]"":[130]x
- 1360 zy[178][195](nb$(r))
- 1370 zz[178][171]1
- 1380 zz[178]zz[170]2
- 1390 mi$[178][202](nb$(r),zz,2):mi[178][197](mi$)
- 1400 [139]an$[178]st$(mi)[167]r[178]mi:[137]1500
- 1410 [139]zz[179]zy[170]1[167]1380
- 1420 p[178]0
- 1430 [129]zx[178]1[164]48:[139]an$[178]st$(zx)[167]p[178]1
- 1440 [130]zx
- 1450 u[178]2:w[178]10
- 1460 [139]p[178]1[167][141]2810:[153]"sys not a cmdcmdcmdcmdcmdcmdcmdcmdneighboropen";:[141]2840:[137]1010
- 1470 [141]2810:[153]"systry againopen";:[141]2840:[137]1010
- 1480 r[178][181](48[172][187](1))[170]1:r1[178]r:[139]r[178]rc[167]1480
- 1490 hm[178]r:te[178][181](ti[173]60)
- 1500 [139]mp[178]1[175]r[179]23[167]670
- 1510 [139]mp[178]2[175]r[177]17[167]1000
- 1520 [151]sp[170]1,250:[151]sp[170]3,250
- 1530 [139]r[179]18[176]r[177]22[167]1560
- 1540 [139]rc[177]22[167]mp[178]2:[137]680
- 1550 mp[178]1:[137]340
- 1560 [139]r[177]22[167]mp[178]2:[137]680
- 1570 [139]r[179]23[167]mp[178]1:[137]340
- 1580 [139](mp[178]1[175]rc[177]22)[176](mp[178]2[175]rc[179]18)[167][151]sp[170]3,250
- 1590 [139]sx(r)[179]256[167]bx[178]0
- 1600 [139]sx(r)[177]255[167]bx[178]1
- 1610 [139]f[178]1[167]1660
- 1620 [139]st(r)[178]0[167]st(r)[178]1:la[178]la[170]1:[141]2740:[153]la;:[137]1660
- 1630 [139]mp[178]1[167]xx[178]2:yy[178]22
- 1640 [139]mp[178]2[167]xx[178]29:yy[178]20
- 1650 [141]2450:[153]"sysalreadycmdcmdcmdcmdcmdcmdcmdchosenopen";:u[178]3:w[178]13:[141]2840
- 1660 [139]sx(r)[177]255[167]x2[178]255
- 1670 [151]sp[170]1,250
- 1680 [151]sp,sx(r)[171]x2:x2[178]0:[151]sp[170]16,bx[170]cx:[151]sp[170]1,sy(r)
- 1690 [139]f[178]1[167][141]2740:[153]" cmdcmdcmdcmdcmdcmdcmd$"10000[171]j;
- 1700 [139]ea[178]1[175]r[178]hm[167][141]2520
- 1710 [139]sa[178]1[176]r[179][177]rc[167][142]
- 1720 [141]2810:[153]"sys got him!":u[178]5:w[178]80:[141]2840:[129]l[178]1[164]100:[130]l
- 1730 [141]2810:[153]" go home!open";
- 1740 [151]2041,15:ea[178]1:r8[178]1:r9[178]1:ma[178]1:sa[178]1:[151]sp[170]3,250:[142]
- 1750 [131]washington,olympia,45,55,0702,idaho,boise,95,83,010705041009
- 1760 [131]south dakota,pierre,223,80,061904122105
- 1770 [131]wyoming,cheyenne,155,93,020503121110,montana,helena,140,58,02040603
- 1780 [131]north dakota,bismarck,220,55,051903,oregon,salem,45,83,01080902
- 1790 [131]california,sacramento,30,125,070913
- 1800 [131]nevada,carson city,70,125,0807021013
- 1810 [131]utah,salt lake city,113,125,090204111413
- 1820 [131]colorado,denver,170,135,10131417161204
- 1830 [131]nebraska,lincoln,230,112,040321201611
- 1840 [131]arizona,phoenix,105,175,0809101114
- 1850 [131]new mexico,santa fe,165,175,1310111715,texas,austin,226,195,14171822
- 1860 [131]kansas,topeka,235,140,11122017
- 1870 [131]oklahoma,oklahoma city,247,165,111620181514
- 1880 [131]arkansas,little rock,57,174,172042442215
- 1890 [131]minnesota,st. paul,40,55,06032124
- 1900 [131]missouri,jefferson city,60,138,1612212741421817
- 1910 [131]iowa,des moines,44,93,120319242720,louisiana,baton rouge,57,205,151844
- 1920 [131]michigan,lansing,132,75,242526,wisconsin,madison,90,75,19232721
- 1930 [131]indiana,indianapolis,122,110,23272641,ohio,columbus,153,110,2541402328
- 1940 [131]illinois,springfield,92,115,2124254120
- 1950 [131]pennsylvania,harrisburg,215,100,264038362937
- 1960 [131]new york, albany,238,80,2836353330,vermont,montpelier,267,70,293331
- 1970 [131]new hampshire,concord,285,65,333032,maine,augusta,305,55,31
- 1980 [131]massachusetts,boston,287,85,2930313534
- 1990 [131]rhode island,providence,290,100,3335
- 2000 [131]connecticut,hartford,270,97,293334,new jersey,trenton,255,105,292837
- 2010 [131]delaware,dover,252,118,382836
- 2020 [131]maryland,annapolis,228,118,37284039
- 2030 [131]virginia,richmond,218,133,3840414243
- 2040 [131]west virginia,charleston,178,125,2628383941
- 2050 [131]kentucky,frankfort,138,135,20272526403942
- 2060 [131]tennessee,nashville,140,153,1820413943474644
- 2070 [131]north carolina,raleigh,218,156,42394547
- 2080 [131]mississippi,jackson,98,185,22184246
- 2090 [131]south carolina,columbia,228,180,4743
- 2100 [131]alabama,montgomery,138,185,44424748
- 2110 [131]georgia,atlanta,185,190,4642434548,florida,tallahassee,180,216,4746
- 2120 rr[178]rc:[139]ea[178]1[167]v3[178]2000
- 2130 [129]x1[178]1[164][195](nb$(rr))[169]2
- 2140 [161]a$:[139]a$[179][177]""[167][153]" cmd";:[141]1100
- 2150 m$[178][202](nb$(rr),x1,2):m[178][197](m$):r8[178]1:r9[178]1
- 2160 v1[178][182](sy(r)[171]sy(m))
- 2170 [139]ea[178]0[175](rc[179]18[176]rc[177]22)[167]r8[178][181](3[172][187](1))[170]1:r9[178][181](2[172][187](1))[170]1
- 2180 [139]mp[178]1[175]m[177]22[167]v[178]255[171]sx(r)[170]sx(m):[137]2210
- 2190 [139]mp[178]2[175]m[179]18[167]v[178]sx(r)[170]255[171]sx(m):[137]2210
- 2200 v[178][182](sx(r)[172]r8[171]sx(m)[172]r9)
- 2210 [129]xy[178]1[164][195](nb$(r))[169]2
- 2220 mn$[178][202](nb$(r),xy,2):mn[178][197](mn$)
- 2230 [139]mn[178]m[167]v[178]v[171]1000
- 2240 [161]a$:[139]a$[179][177]""[167][153]" cmd";:[141]1100
- 2250 [130]xy
- 2260 [153]" waitcmd";
- 2270 v2[178]v[170]v1:[139]v2[179]0[167]v2[178][181](4[172][187](1))
- 2280 [139]ea[178]0[167]2310
- 2290 [139]v2[179]v3[167]v3[178]v2:rd[178]m
- 2300 [137]2320
- 2310 [139]v2[177]v3[167]v3[178]v2:rd[178]m
- 2320 [130]x1
- 2330 d[178]d[170]1:[139]d[179]b[167]2120
- 2340 [161]a$:[139]a$[179][177]""[167][153]" cmd";:[141]1100
- 2350 d[178]0:rc[178]rd:[153]" cmd";:v3[178]0
- 2360 [139]ma[178]1[175]ea[178]1[167]rc[178][181](48[172][187](1))[170]1:kc[178]rc:ma[178]0
- 2370 [151]sp[170]3,250
- 2380 [139]ea[178]0[167]j[178]j[170]100:u[178]1:w[178]40:[141]2840
- 2390 [139](mp[178]1[175]rc[177]22)[176](mp[178]2[175]rc[179]18)[167]2120
- 2400 [139]sx(rc)[179]256[167]cx[178]0
- 2410 [139]sx(rc)[177]255[167]cx[178]2:x3[178]255
- 2420 [151]sp[170]16,bx[170]cx:[151]sp[170]2,sx(rc)[171]x3:x3[178]0:[151]sp[170]3,sy(rc)
- 2430 [139]sa[178]1[175]rc[178]r[167][141]2570
- 2440 [137]2120
- 2450 [151]781,yy:[151]782,xx:[151]783,48:[158]65520:xx[178]0:yy[178]0:[142]
- 2460 [131]168,0,2,170,0,10,170,128,042,170,160,41,85,160,41,221,160,101,17,100
- 2470 [131]101,101,100,21,101,80,21,85,80,21,1,80,5,69,64,1,85,0,0,84,252,0,3,255
- 2480 [131]0,15,223,192,61,85,240,61,85,240,63,223,240,127,255,244,117,237,116,53
- 2490 [131]101,112,52,204,112,7,3,64,3,87,0,0,84,0,0,16,84,0,1,85,0,13,85,192,61
- 2500 [131]85,240,61,85,240,63,223,240,127,255,244,117,237,116,53,101,112,61
- 2510 [131]221,240,15,3,192,15,84,192,3,223,0,0,252
- 2520 [141]2810:[153]"sys you win!";:x[178]x[170]1:u[178]1:w[178]70:[141]2840:[139]x[179]20[167]2520
- 2530 [141]2810:[153]"press anycmdcmdcmdcmdcmdcmdcmdkey";
- 2540 [151]198,0
- 2550 [161]a$:[139]a$[178]""[167]2550
- 2560 [138]
- 2570 [141]2810:[153]"sys got you!";:u[178]3:w[178]15:[141]2840:[151]sp[170]21,2
- 2580 [139]j[179]10000[167][141]2740:[153]" cmdcmdcmdcmdcmdcmd 0";
- 2590 [129]x[178]1[164]1500:[130]x
- 2600 [137]2530
- 2610 [151]sp[170]3,250
- 2620 [161]a$:tm[178]sc[171]([181](ti[173]60)[171]te)
- 2630 [139]mp[178]1[167][153]""[163]28);
- 2640 [139]mp[178]2[167][153]""[163]30);
- 2650 [153]"time:"tm"cmd ";
- 2660 [139]tm[178]0[167]2760
- 2670 [139]mp[178]1[167][153]""[163]y);
- 2680 [139]mp[178]2[167][153]""[163]20[170]y);
- 2690 [139]ra[179]4[167][153]" waitcmd";:ra[178]ra[170]1:[137]2710
- 2700 [153]" cmd";:ra[178]0
- 2710 [139]a$[178]""[167]2620
- 2720 [153]" cmd";:[141]1100
- 2730 [137]2610
- 2740 [139]mp[178]1[167]xx[178]13:yy[178]23:[141]2450:[142]
- 2750 xx[178]33:yy[178]13:[141]2450:[142]
- 2760 [139]mp[178]1[167]xx[178]1:yy[178]22
- 2770 [139]mp[178]2[167]xx[178]29:yy[178]20
- 2780 [141]2810:[153]"systime is up"
- 2790 wx[178]wx[170]1:u[178]1:w[178]15:[141]2840:[139]wx[179]15[167]2780
- 2800 [137]2530
- 2810 [139]mp[178]1[167]xx[178]1:yy[178]22:[137]2830
- 2820 xx[178]29:yy[178]20
- 2830 [141]2450:[153]" cmdcmdcmdcmdcmdcmdcmdcmdcmdcmd oncmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";:[142]
- 2840 [129]s[178]1[164]u:[151]n[170]24,15:[151]n[170]6,247:[151]n[170]4,17:[151]n[170]1,w
- 2850 [129]q[178]1[164]30:[130]q:[151]n[170]4,16:[130]s:[142]
-